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I.  INTRODUCTION 


) 


Experiments  conducted  in  the  E-beam  Laser  Laboratory  require  the 
setting  of  gas  flows,  pressures,  and  voltages  in  a  timed  sequence,  to  avoid 
gas  mixture  explosion  boundaries  and  radiation  hazards  to  personnel.  The 
parameters  of  an  experiment  and  the  variation  of  the  process  variables 
during  an  experiment  impose  a  burden  on  the  lab  operators  to  read  and 
record  these  data  while  setting  control  valves  and  voltages  to  run  the  test. 

A  four-phase  plan  to  automate  the  laboratory  is  contemplated: 

I.  Data  acquisition  from  sensors,  with  a  computer  summary 
of  the  experiment 

II.  Sampling  wideband  waveforms  and  recording  data  for  com¬ 
puter  analyses 

III.  Servo  control  of  valves  and  optical  alignments  for  automatic 
operation  of  the  experiment 

IV .  Data  communication  to  a  central  computer  for  analyses  of 
E-beam  test  results 

This  report  describes  the  realization  of  Phase  I,  which  had  four 
objectives: 

a.  To  sense  and  display  the  process  variables  digitally 

b.  To  program  a  computer  to  input  process  parameters 
interactively 

^  c.  To  program  a  computer  to  acquire  data  during  an  experiment 

d.  To  program  a  computer  to  print  out  test  conditions  and 

results 

Completion  of  Phase  I  obviates  manual  recording  of  test  conditions  or  results 
It  should  aid  in  maintaining  good  test  records,  and  it  should  increase  the 
rate  at  which  experiments  can  be  conducted  in  the  lab. 
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II,  E-BEAM  LASER  LABORATORY 


Figure  1  portrays,  in  block  diagram  form,  the  interaction  among  the 
laboratory's  functional  components.  Operation  of  the  E-beam  laser  requires 
metering  five  gases  into  the  laser  chamber.  Two  protective  barricades  are 
employed  to  hold  mixtures  of  fluorine,  oxygen,  and  helium.  Hydrogen  and 
argon  are  then  mixed  with  the  barricade  gases  in  a  valve  plenum  and  trans¬ 
ported  to  the  laser  chamber.  The  barricade  used  to  initiate  filling  of  the 
laser  chamber  contains  an  oxygen- rich  mixture  to  prevent  a  low-pressure 
reaction  between  fluorine  and  hydrogen.  At  a  specified  laser  chamber 
pressure,  a  switchover  to  the  oxygen-lean  barricade  continues  charging 
the  chamber.  When  an  appropriate  laser  chamber  pressure  and  gas  mixture 
is  attained,  an  energetic  flux  of  electrons  triggers  a  chain  reaction  between 
fluorine  and  hydrogen  that  causes  lasing.  The  energetic  electrons  are 
generated  by  the  Pulserad  accelerator  system. 

A  dump  tank  provides  a  pressure  relief  volume  for  the  explosive 
reaction  that  occurs  in  the  lasing  process.  It  protects  the  complex  cathode 
structure  in  the  electron  gun  from  damage  following  a  laser  shot. 

Figure  2  illustrates  the  two  physically  separated  control  and  monitoring 
areas.  The  "hood"  area  is  adjacent  to  the  laser  chamber.  Control  valves 
and  displays  are  used  to  manually  set  conditions  in  the  laser  chamber  for 
tests.  When  appropriate  conditions  are  set  for  an  experiment,  all  personnel 
leave  the  hood  area  for  the  protected  "console"  area,  where  the  system 
variables  are  monitored  by  digital  displays  and  a  Cromemco  Z-2D  micro¬ 
processor.  The  Pulserad  charging  system  is  set  to  a  suitable  accelerating 
voltage,  and  depression  of  a  "fire"  button  causes  the  Marx  generator  to  erect 
and  energetic  electrons  to  irradiate  the  gas  mixture  in  the  laser  chamber. 

As  the  gases  lase,  there  is  an  attendant  electromagnetic  pulse,  which 
induces  noise  voltages  in  the  sensor  system. 


Fig.  1.  E-Beam  Laser  Laboratory 


HOOD  AREA 

1.  CONTROL  VALVES 

1 

1 

1 

CONSOLE  AREA 

2.  FLOWMETERS 

1 

CABLES  1 

1.  PULSERAD  CHARGING 
SYSTEM 

3.  PRESSURE  SENSORS 

1 

2.  COMPUTER 

4.  MIXER  VALVE 

1 

3.  DISPLAYS 

TEMPERATURE  MONITOR 

1 

5.  DISPLAYS 

1 

1 

Fig.  2.  Control  and  Monitoring 
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Fourteen  analog  sensors  monitor  the  setup  of  an  experiment: 


a.  Three  Hastings  mass  flowmeters  with  an  output  signal 
ranging  from  0  to  5  V 

b.  Five  Consolidated  Controls  pressure  transducers  with  an 
output  range  from  0  to  30  mV 

c.  Three  National  Semiconductor  pressure  transducers  with  an 
output  range  from  2.  5  to  12.  5  V 

d.  Two  Hadron  energy  meters  with  an  output  range  from 
0  to  10  mV 

e.  One  Omega  temperature  transducer  with  an  output  range 
from  0  to  2  V 

The  high  noise  environment  and  the  varied  sensor  outputs  require  signal 
conditioning  by  the  network,  which  converts  sensor  outputs  to  acceptable 
computer  inputs. 
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ni.  DATA  CONVERSION  NETWORK 


The  high  noise  environment  dictated  that  only  analog  signals  would 
link  the  hood  and  console  areas.  Due  to  space  limitations,  sensor  power 
supplies  had  to  be  located  in  the  console  area.  Signal  lines  from  the  sensors 
were  shielded  from  power  excitation  lines  to  the  sensors.  The  low  band¬ 
width  of  the  signals  between  the  hood  and  the  console  permitted  the  extensive 
use  of  capacitors  to  reduce  high  frequency  noise  pulses.  Ground -strapping 
was  employed  to  minimize  ground  currents  coupling  unwanted  signals  into 
the  operational  amplifiers  that  scale  variables  for  input  to  the  microcomputer. 

A  scaling  and  display  system  for  the  sensors  is  shown  in  Fig.  3.  Sen¬ 
sors  output  analog  voltages  proportional  to  physical  variables,  which  must  be 
digitized.  Digitization  of  the  variables  can  be  effected  with  an  analog-to- 

digital  (A/D)  converter  with  B  converter  bits  (the  dynamic  range  of  the  result 
B 

is  2  counts).  Design  constraints  specify  a  maximum  voltage  and  a  quantiza¬ 
tion  voltage  level  for  the  physical  device;  therefore,  to  employ  the  full 


COMPUTER 
INPUT  PORT 


Fig.  3.  Data  Conversion  System 
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capability  of  the  converter,  one  must  transform  the  maximum  output  of  the 
sensor  to  the  design  maximum  voltage  of  the  converter.  Operational 
amplifier  networks  provide  the  voltage  adjustments.  The  Datel  digital 
displays  convert  analog  voltages,  in  the  range  of  0  to  1.999  V,  to  a  digital 
count.  To  represent  a  physical  variable,  e.g.,  a  pressure  of  14.  7  psia, 
the  input  to  the  display  channel  is  adjusted  to  1.470  V.  Grounding  a 
selected  pin  places  the  decimal  point  of  the  display  at  a  chosen  position; 
thus,  14.70  is  achieved  by  grounding  the  pin  for  the  second  decimal  point 
position  and  represents  the  pressure  (in  psia).  Each  displayed  variable 
is  rcslizcd  in  an  analogous  manner. 
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IV,  COMPUTER  PROGRAMMING  CONSIDERATIONS 


Program  development  to  meet  the  objectives  of  Phase  I  was  strongly 
influenced  by  a  requirement  to  make  it  "user-oriented"  for  E-beam  laboratory 
personnel.  It  was  desired  that  it  be  easily  modified  as  alternative  operating 
conditions  for  tests  became  necessary.  The  BASIC  programming  language 
meets  the  requirement  for  ease  of  comprehension  and  ready  modification, 
BASIC  is  an  ideal  language  for  interactively  inputing  process  parameters 
and  printing  out  test  conditions  and  results.  The  creation  of  timing  loops 
for  data  acquisition  from  the  process  sensors  in  BASIC  is  not  readily 
achieved.  Fortunately,  however,  the  slow  dynamic  process  allowed  the  use 
of  the  Cromemco  BASIC's  SET  and  ON  ERROR  instructions  to  generate 
real-time  loops. 

Figure  4  outlines  the  BASIC  language  program  "LASER,  "  which  was 
written  to  monitor  operation  of  the  E-beam  Laboratory.  A  listing  of  the 
program,  variable  definitions,  and  port  identifications  is  given  in  the 
Appendix, 

Figure  5  illustrates  the  interactive  dialog  between  operator  and  com¬ 
puter  to  input  test  parameters.  Test  conditions  of  the  previous  experiment 
are  input  from  a  disc  file  and  modified  as  necessary.  To  illustrate,  a  "y" 
response  to  the  first  question  accepts  the  Jan,  5,  1979,  date  as  valid  for 
the  current  test.  An  "n"  response  to  the  test  time  question  permits  the 
test  time  for  the  current  experiment  to  be  changed.  If  an  "o"  response  is 
given  to  a  question  at  any  point  in  the  interactive  dialog,  the  input  is  assumed 
to  be  complete,  and  the  current  test  conditions  are  written  onto  a  disc  file. 

The  data  acquisition  routine  is  as  follows: 

a.  Initiated  by  flow  transient  from  first  barricade 

b.  At  one-second  intervals: 

1,  Reads  flowmeters  and  pressures 

2,  Monitors  mixer  valve  temperature 

3,  Monitors  dump  tank  pressure 
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Fig.  4.  BASIC  Language  Program  "LASER" 


RUN 

TEST  DATE  IS  JAN  5.  1979  OK  ? 

?  y 

TEST  DATE  IS  JAN  5.  1979 

TEST  TIME  «  900  OK  ? 

?  n 

NEW  TIME  1300 
TEST  TIME  •  1300  OK  ? 

?y 

TEST  TIME  •  1300 

BARRICADE  I  FILIEO  TO  258.5  TORR  OXYGEN,  1809.5  TORR  OXYGEN 
PLUS  FLUORINE,  AND  100  PSIA  OXYGEN  PLUS  FLUORINE  PLUS  HELIUM  -  OK  ? 
?  n 

OXYGEN  245 
02  PLUS  F2  1600 
02  PLUS  F2  PLUS  HE  147 

BARRICADE  I  FILLED  TO  245  TORR  OXYGEN,  1600  TORR  OXYGEN 
PLUS  FLUORINE,  AND  147  PSIA  OXYGEN  PLUS  FLUORINE  PLUS  HELIUM  -  OK  ? 
?  0 

PARAMETER  SET-UP  COMPLETE 
READY  TO  BEGIN  TEST  ??? 

7 


Fig.  5.  Interactive  Dialogue 
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c.  Switches  to  second  barricade 

d.  Pressure  transient  initiates  new  sampling  interval: 

1.  Reads  flowmeters  and  pressures 

2.  Monitors  mixer  valve  temperature 

3.  Monitors  dump  tank  pressure 

e.  Fire  button 

1,  Terminates  sampling 

2,  Calculates  gas  composition 

3,  Acquires  data  from  9-  and  4-cm  calorimeters 
Figure  6  illustrates  the  resulting  output  print  format. 
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E-BEAM  LASER  SHOT  NO.  9002  JAN.  2,1979 

TEST  TIME  900 

PAGE  1 


E-BEAM  PARAMETERS 
SWITCH  PRESSURES 
TRICATRON  ■  37.U586  PSIA  N2 
MARX  ■  26.8875  PSIA  SF6 
PREPULSE  -  72.0332  PSIA  SF6 
MASTER  SWITCH  GAP  -  2  CM 
WATER  RESISTIVITY  ■  lE+06  OHM-CM 


DIODE  AREA  -  10  BY  100  CM 
A-K  GAP  ■  2  CM 
DIODE  PRESSURE  -  2E-0U  TORR 
CHARGING  VOLTAGE  -  70  KV 


SCOPE  RECORDS 


PULSE  CHARGE 


VERTICAL 


250  KV/OIV 


HOP  I  Z 

200  NS/DIV 


TUBE  VOLTAGE 

VERTICAL 
160  KV/DIV 


HORIZ 
50  NS/DIV 


ROGOVISKI 

VERTICAL 
13  KV/OIV 


HOPIZ 

200  NS/DIV 


Fig.  6.  Output  Print  Format 
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E-BEAM  LASER 
TEST  TIME  1300 


SHOT  NO 


2751 


JAN  5,1979 


PAGE  2 


FOIL  INSTALLED  NOV.  17,1977  SHOTS  WITH  FOIL  35 
GAS  HANDLING 

FLUORINE  BARRICADE  I  STORAGE  VOLUME  IN  USE  -  10  GALS  (37. «5  LITERS) 
BARRICADE  I  FILLED  -  DEC.  IB, 1978  TO  60  TORR  OXYGEN,  760  TOHR  OXYGEN 
PLUS  FLUORINE,  AND  147  PSIA  OXYGEN  PLUS  FLUORINE  PLUS  HELIUM 
BARRICADE  I  COMPOSITION  -  0.789484  %  02  9.21064  %  F2  89.9998  i  HE 
BARRICADE  I  PRESSURES  - 

BEGINNING  -  128.2  PSIA  END  -  110.9  PSIA 

PRESSURE  DROP  -  17.3  PSI  ELAPSED  TIME  -  510  SECS 

DP/DT  -  0.0558064  PSI/SEC  F2  MIX  FLOWRATE  -  143.691  CC/SEC 

THERE  ARE  4  SHOTS  LIKE  THIS  LEFT  IN  BARRICADE  I 

FLUORINE  BARRICADE  II  STORAGE  VOLUME  IN  USE  »  10  GALS  (37.85  LITERS) 
BARRICADE  II  FILLED  -  DEC.  18,1978  TO  6  TORR  OXYGEN,  760  TORR  OXYGEN 
PLUS  FLUORINE,  AND  147  PSIA  OXYGEN  PLUS  FLUORINE  PLUS  HELIUM 
BARRICADE  II  COMPOSITION  -  0.0789484  %  02  9.92118  ?  F2  89.9998  ♦  HE 
BARRICADE  II  PRESSURES  - 

BEGINNING  -  130.6  PSIA  END  -  113.1  PSIA 

PRESSURE  DROP  -  17.5  PSI  ELAPSED  TIME  •  310  SECS 

DP/DT  -  0.0564516  PSI/SEC  F2  MIX  FLOWRATE  -  145.352  CC/SEC 

THERE  ARE  4  SHOTS  LIKE  THIS  LEFT  IN  BARRICADE  II 

FLOW  RATES  PRESSURES 


F2  MIX  -  140.4  CC/SEC  LASER  CHAMBER  -  801.5  TORR 

H2  -7  CC/SEC 

AR  ■  84  CC/SEC 

MIXTURE  COMPOSITION 


GAS  PERCENT  ATM  TORR 


ARGON 

36.36 

HELIUM 

54.55 

FLUORINE 

5.57 

HYDROGEN 

3.03 

OXYGEN 

0.486 

0.383453  291.424 
0.575284  437.215 
0.0587412  44.6433 
0.0319544  24.2853 
5.12536E-C3  3.89527 


Fig.  6.  Output  Print  Format  (Continued) 
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E-8EAfl  LASER 
TEST  TIME  lUOO 


SHOT  NO.  2758 


JAN  5,1®70 


PAGE  3 


laser  OUTPUT 


TIME  (SECS)  9  CM  CAL.  (JOULES)  TIME  (SECS)  CM  CAL.  (JOULES) 


-0.5 

-128 

-1.5 

-128 

0 

-128 

0 

-128 

0.5 

-128 

1.5 

-128 

1 

-128 

3 

-128 

1.5 

-128 

4.5 

-128 

2 

-128 

6 

-128 

2.5 

-128 

7.5 

-128 

3 

-128 

9 

-128 

3.5 

-128 

10.5 

-128 

It 

-128 

12 

-128 

4.5 

-128 

13.5 

-128 

5 

-128 

15 

-128 

5.5 

-128 

16.5 

-128 

6 

-128 

18 

-128 

6.5 

-128 

19.5 

-128 

7 

-123 

21 

-128 

7.5 

-128 

22.5 

-128 

8 

-128 

24 

-128 

8.5 

-128 

25.5 

-128 

9 

-128 

27 

-128 

9.5 

-128 

28.5 

-128 

10 

-128 

30 

-128 

10.5 

-128 

31.5 

-128 

11 

-128 

33 

-128 

11.5 

-128 

34.5 

-128 

12 

-128 

36 

-128 

12.5 

-128 

37.5 

-128 

13 

-128 

39 

-123 

13.5 

-128 

40.5 

-128 

14 

-128 

42 

-128 

14.5 

-128 

45.5 

-128 

15 

-128 

45 

-128 

15.5 

-128 

46.5 

-128 

16 

-128 

48 

-128 

16.5 

-128 

49.5 

-128 

17 

-128 

51 

-128 

17.5 

-128 

52.5 

-128 

18 

-128 

54 

-128 

18.5 

-128 

55.5 

-128 

19 

-128 

57 

-128 

19.5 

-128 

58.5 

-128 

Fig.  6.  Output  Print  Format  (Continued) 
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V.  CROMEMCO  Z-2D  MICROCOMPUTER 


The  Z-2D  machine  employs  the  Z-80  microprocessor  unit  and  has  two 
5-1/4-in.  minidisc  drives.  It  is  an  S-100  bus  system.  A  48k  memory  was 
required  to  accommodate  the  disc  operating  system,  the  I6k  Cromemco 
BASIC,  and  the  "LASER"  program.  Ninety-four  percent  of  the  48k  memory 
was  utilized  for  the  Phase  I  automation  of  the  E-beam  Laboratory. 

Auxiliary  S-100  boards  were  used  for  input/output  (I/O).  A  4FDC 
disc  controller  board  provided  an  interface  between  the  disc  and  computer 
memories  and  also  linked  an  Anderson- Jacobson  841  selectric  terminal 
to  the  Z-2D  bus  for  console  I/O.  A  TU-ART  board  with  two  serial  and  two 
parallel  I/O  channels  was  used;  it  contains  ten  interval  timers.  The  A/D 
conversion  process  was  effected  with  the  D  +  7A  board.  The  system  has 
three  boards  allowing  21  channels  of  A/D  or  D/A  conversion.  Calibration 
of  the  D  +  7A  boards  remained  fixed  over  several  months  of  tests  and 
checks. 


The  hardware  costs  are  estimated  to  be: 


a. 

Cromemco  computer: 

1.  Two  5-1/4-in.  floppy  discs 

2.  48k-byte  memory 

$5, 100 

b. 

A/D  converter  boards 

750 

c. 

Anderson- Jacobson  selectric  terminal 

1,  100 

d. 

12  digital  display  channels 

2,500 

$9,450 

APPENDIX 


A  listing  of  the  "LASER"  program  is  given  on  the  pages  that  follow. 
Variables  used  in  the  program  are  defined  in  Table  A-1.  The  linear 
relationship  between  a  physical  variable  and  the  counts  read  at  a  computer 
port  is  given  by,  e.  g.  , 


P8  =  CO  *  XO  +  X0(0) 

where  P8  represents  the  laser  chamber  pressure  in  torr,  XO  the  counts 
read  at  port  1 IH,  CO  the  scale  factor,  and  X0(0)  the  offset. 

Table  A- 2  provides  the  port  assignments  and  function  definitions  to 
relate  counts  to  physical  variables.  Note  that  the  TU-ART  switches  are 
the  parallel  A  port  (D4  H)  and  the  parallel  B  port  (74  H). 
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LIST 

S  OUT%007U%,0 

10  SFMODE  :  X-0.1234567C  :  IF  X-0. 12545678  THEN  RUN 
15  DIM  Z*{15),W$(15),Y1$(15),Y2$(15) 

20  DIM  V2(2),ai(2),Q2(2),(15(2) 

25  OPEN4U"T£MPl" 

50  CFTtltNl,H,L,Hl,H2,P4,Vl,Rl,Sl,S2,S5,S4,S5,S6,T,N5,R4,R5,R6 
55  OPEN<2«"TCMP2" 

40  GET42«V2(l),V2(2),Ql(l),Ql(2),Q2{l),a2(2),a5(l),Q5(2) 

45  OPEN<5<"TEHP5" 

50  GETt5<Z$(-l),W$(-l),Yl$(-l),Y2$(-l) 

55  CLOSE 

60  SET  5,50000.0 

65  0"TCST  PATE  IS  ";Z$;"  OK  7" 

70  INPUT  0$ 

75  IF  D$«"o"THEN  860 
80  IF  0$-"y"THEN  95 
85  INPUT"NEW  DATE  ",Z$ 

90  GOTO  65 
95  Q 

100  @"TEST  DATE  IS  ";Z$ 

105  0 

110  0"TEST  TIME  -  ";T;"  OK  7*' 

115  INPUT  D$ 

120  IF  0$-"o"TIIEN  860 
125  IF  D$-"y"THEN  140 
150  INPUT"NEW  TIME  ’',T 
155  GOTO  110 
140  @ 

145  0"TEST  TIME  -  ";T 
150  @ 

155  ©"BARRICADE  I  FILLED  TO  *’;Q1{1);"  TORR  OXYGEN,  ";Q2(1);"  TORR  OXYGEN" 

160  PLUS  FLUORINE,  AND  ";Q5(1);"  PSIA  OXYGEN  PLUS  FLUORINE  PLUS  HELIUM  -  OK  7" 
165  INPUT  D$ 

170  IF  0$«"o"THEN  860 
175  IF  D$-"y"THEN  200 
180  INPUT"OXYGEN  ",01(1) 

185  INPUT"02  PLUS  F2  ",Q2(1) 

190  INPUT"02  PLUS  F2  PLUS  HE  ",05(1) 

195  GOTO  155 
200  @ 

205  ©"BARRICADE  I  FILLED  TO  ";01(1);"  TORR  02,  ";02(1);"  TORR  02  PLUS  F2" 

210  0"  AND  ";Q5(1);"  PSIA  02  PLUS  F2  PLUS  ME" 

215  © 

220  ©"BARRICADE  II  FILLED  TO  ";Q1(2);"  TORR  OXYGEN,  ";Q2(2);"  TORR  OXYGEN" 

225  0"  PLUS  FLUORINE,  AND  ";Q3(2);"  PSIA  OXYGEN  PLUS  FLUORINE  PLUS  HELIUM  -  OK  7" 
250  INPUT  D$ 

255  IF  D$-"o"THEN  860 
240  IF  D$«"y"TMEN  265 
245  INPUT"OXYGEN  ",01(2) 

250  INPUT"02  PLUS  F2  ",Q2{2) 

255  INPUT"02  PLUS  F2  PLUS  HE  ",03(2) 

260  GOTO  220 
265  0 

270  ©"BARRICADE  II  FILLED  TO  ";Q1(2);"  TORR  02,  ";02(2);"  TORR  02  PLUS  F2" 

275  0"  AND  ";Q3(2);"  PSIA  02  PLUS  F2  PLUS  HE" 

280  0 

285  ©"BARRICADE  I  FILLED  ON  ";Y1$;"  BARRICADE  II  FILLED  ON  ";Y2$;"  OK  7" 

290  INPUT  D$ 

295  IF  D$-"o"THEN  860 
300  IF  0$«"y"THEN  320 
305  IMPUT"B-I  FILL  DATE  ",Y1$ 
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510  INPUT"B-H  f»il.  nATE  ‘',Y2» 

515  GOTO  285 
520  Q 

525  0"  C-l  FILLEO  OM  B-H  FILLEn  ON  ";Y2$ 

550  Q 

555  @"FOIL  INSTALLED  HAS  BEEN  USED  '';N5;"  TIMES,  OK  7" 

540  INPUT  D$ 

545  IF  D$-"o"THEN  860 
550  IF  D$-"y"THEN  570 
555  INPUT"nAT£",W$ 

560  INPUT*’SIIOTS  ”,N5 
565  GOTO  555 
570  0 

575  0"FOIL  INSTALLED  HAS  BEEN  USED  '^NS;'*  TIMES" 

580  6 

58  5  0"SIIOT  HO,  -  ";N1;"  OK  7" 

590  INPUT  0$ 

595  IF  0$«"o"THEN  860 

400  IF  D$-"y"TIIEN  415 

405  INPUT"NEW  SHOT  NO.  -  ",N1 

410  GOTO  585 

415  @ 

420  0"SIIOT  NO.  -  ";N1 
425  0 

450  0"niOnE  AREA  •  ";H;"  BY  ";L;"  CM  ,  OK  7" 

455  INPUT  0$ 

440  IF  D$«"o"THEN  860 
445  IF  D$«"y"THEN  465 
450  |NPUT"HEU  HEIGTII  ",ll 
455  INPUT"NEW  WIDTH  ",L 
460  GOTO  450 
465  Q 

470  0"DIODE  AREA  -  ";H;"  BY  ";L;"  CM" 

475  0 

480  @"MASTER  SWITCH  GAP  -  CM  ,  OK  7" 

485  INPUT  0$ 

490  IF  0$«"o"TIIEN  860 
495  IF  D$-"y"TIIEN  510 
500  INPUr'NEW  GAP  ",HJ 
505  GOTO  480 
510  Q 

515  @"MASTER  SWITCH  GAP  ■  CM" 

520  Q 

525  @"A-K  GAP  •  ";II2;"  CM  ,  OK  7" 

550  INPUT  ns 

555  IF  DS-"o"THEN  860 

540  IF  0$-"y"THEN  555 

545  INPUT"NEM  GAP  ",H2 

550  GOTO  525 

555  e 

560  0"A-K  CAP  -  ";H2;"  CM" 

565  0 

570  0"PIOOE  PRESSURE  •  ";P4;"  TORR  ,  OK  7" 

575  INPUT  D$ 

580  IF  OS-"o"THEN  860 
585  IF  OS-"y"THEN  600 
590  INPUT"NEW  DIODE  PRESSURE  ",P8 
595  GOTO  570 
600  0 

605  Q"DIOOE  PRESSURE  -  ";P%;"  TORR" 

610  0 

615  0"CHARGINC  VOLTAGE  -  KV  ,  OK  7" 

620  INPUT  0$ 

625  IF  08-"o"THEN  860 
630  IF  DS»"y"TMEM  645 
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G55  INPUT"NEW  VOLTAOE  ”,V1 
6I|Q  GOTO  61S 
645  @ 

650  @"CHARGINr.  VOLTAGE  -  KV” 

655  Q 

660  0''PUISE  CHARGE  SCALES  -  VERTICAL  ,  HORIZ  '';S1;'*  ANP  •';S2;''  OK  7*' 
665  INPUT  n$ 

670  IF  D$-"o"THEN  800 
675  IF  D$-"v"THFN  695 
680  INPUT"VERTICAL  ",S1 
685  INPUT"ltORIZ  ",S2 
690  GOTO  660 
695  Q 

700  0’'VERTICAL  -  ";S1;"  HORIZ  ■  ";S2 
705  0 

710  0"TUBE  VOLTAGE  SCALES  -  VERTICAL  ,  HORIZ  ";S5;"  ANP  ";S4j''  OK  7" 
715  INPUT  n$ 

720  IF  r>$-''o"THEM  860 
725  IF  D$«"y"THEM  745 
730  INPUT"VFRTICAL  ",S5 
755  INPUT"HORIZ  ",S4 
740  GOTO  710 
745  0 

750  0"VERTICAL  ■  '';S5;''  HORIZ  ■  '•;S4 
755  0 

760  0"ROGOWSKI  SCALES  -  VERTICAL  ,  HORIZ  '';S5;*'  ANP  ";S6;''  OK  7" 

765  INPUT  n$ 

770  IF  D$»"o"THEN  860 
775  IF  D$«"y"THEN  795 
780  INPUT"VERTICAL  ",S5 
785  INPUT"HORIZ  ",S6 
790  GOTO  760 
795  @ 

800  Q"VERTICAL  •  ";S5;''  HORIZ  «  '•;S6 
805  0 

810  0"OARRICAnES  -  VOLUME  I  ,  VOLUME  II  IN  GALS  ".-VZd);''  ANP  '';V2(2) 
815  INPUT  D$ 

820  IF  D$-"o"THEN  SCO 
825  IF  05-"y"THEN  845 
830  INPUT"VOLUriE  I  ",V2(1) 

835  INPUT"VOLUME  II  ",V2(2) 

840  GOTO  810 
845  0 

850  @"VOLUME  I  -  ";V2(1);''  VOLUME  II  -  '';V2(2) 

855  0 

860  M1«H1*1 
865  M3»N3*1 
870  ERASE"TEMP1" 

875  ERASE”TEMP2" 

880  ERASE"TEMP3" 

E85  CREATE"TEMP1" 

890  OPF.Ntlt"TEMPl" 

£95  PUTtl4Ml,H,L,Hl,H2,P4,Vl,Rl,Sl,S2,S5,S4,S5,S6,T,M3,R4,R5,R6 
900  CREATE"TEMP2" 

905  OPEH424"TEMP2'’ 

910  PUTt2tV2(l),V2(  2), OKI), 01(2), 02(1), 02(2), 03(1), 03(2) 

915  CREATE"TEMP3" 

920  OPENt3i"TEMP3" 

925  PUT«3<Z$(-1),W$(-1),Y1S(-1),Y2$(-1) 

930  CLOSE 

935  READ  CO, Cl, C2, C3, C4, C5 , C6, C7 ,C8 
940  READ  KS,K6,K7,K8,K9,X0(0),X1(0) 

945  READ  X2 ( 0 ) , X3 ( 0 ) , X4(0 ) ,X5 ( 0 ) , X6( 0 ) , X7 (0 ) , X8 ( 0 ) 

950  READ  Y0(0),Y1(0),Y2(0),Y3(0),Y4(0) 

955  DATA  6.35569,2.84127,-0.13327,-3.3,-0.135772,-1.04167,1,1,1 
960  DATA  1,1,-0.40625,-0.68966,-0.666667,28.06565,0 
965  DATA  0.68654.0.0.0.0.0.0 
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970  DATA  0,0,0.075,0.217,0.69985 
975  SET  5,30000.0 

980  Q  :  0  :  0"PARAMETER  SET-UP  COMPLETE"  :  @ 

985  0"REAnY  TO  BEGIN  TEST  ?7?" 

990  INPUT  0$ 

995  IF  n$-"y”TIIEN  1005 
1000  GOTO  990 
1005  T2(l)-0  :  T2(2)-0 
1010  C9*INP(t0014%)  :  GOSUR  5150 
1015  X5(C)>C9  ;  C9- I NP( ^0017^)  :  GOSUB  5150 
1020  X6(l)-C9  :  C9-I NP( «0017t)  :  GOSUB  5150 
1025  X6(2)>C9  :  1-0 
1030  @ 

1035  ON  ERROR  GOTO  1040 
1040  SET  5,10 
1045  X3(5)-X3(6) 

1050  C9>INP(%0014%)  :  GOSUR  5150 
1055  X3I6)-C9 

1060  C9-INP(;0017%)  :  GOSUB  5150 
1065  X6(2)>C9  :  C9-INP(;0013t)  :  GOSUB  5150 
lo70  X2>C9  ;  IF  X2>-1  THEN  1080 
1075  COSUB  4000 

1080  IF  ABS(X6(2)-XC(1))<S  THEN  1090 
1085  GOSUB  5000 

1090  IF  ABS(X3(6)-X3(5))>5  THEN  1110 
1095  l-l*! 

1100  IF  FRA(l/30)-0  THEN  1030 
1105  INPUT  Z 
1110  @1 

1115  X3(l)«0  ;  X4(l)-0  ;  X5(l)-0 
1120  X3(2)>0  :  X4(2)-0  :  XS(2)-0 
1125  C9>INP(i0012i}  :  GOSUR  5150 
1130  Xl(2)-C9 
1135  X1(6)-X1(2) 

1140  0 

1145  ON  ERROR  GOTO  1150 
1150  SET  5,10 

1155  C9>INP(80014;)  :  GOSUR  5150 
1160  X5-C9 

1165  C9«INP(%0015t)  :  GOSUB  5150 
1170  X4-C9 

1175  C9*INP(t0016))  :  GOSUR  5150 
1180  X5«C9 

1185  X1(1)>X1(2)  :  C9-INP(!i0012t)  :  GOSUB  5150 
1190  Xl(2)-C9  :  C9-INP(t0017!^)  :  COSUB  5150 
1195  X6(2)-C9  :  C9-INP(!t0013ll)  :  GOSUB  5150 
1200  X2-C9  :  IF  X2>-1  THEN  1210 
1205  GOSUB  4000 

1210  IF  ABS(X6(2)-X6(1))<5  THEN  1220 
1215  GOSUB  5000 

1220  IF  ABS(X1(2)-X1(1))>2  THEN  1250 

1225  T2(l)-T2(l)*l 

1230  IF  T2(l)<20  THEN  1245 

1235  X3(1)-X3(1)«X3  :  X4(1)-X4(1)«X4  :  X5( 1 >-X5 ( 1)«X5 
1240  IF  FRA(T2(l)/30)-0  THEN  1140 
1245  INPUT  Z 
1250  @ 

1255  X1(7)-X1(1) 

1260  X3(9)-X3(1)/(T2(1)-19)  :  X4(9)-X4(1)/(T2(1)-19) 
1265  X5(9)-X5(1)/(T2(1)-19) 

1270  D1-(X1(6>-X1(7))/T2(1) 

1275  X1(8)-X1(2) 

1280  T2(2)-0  :  V5(2>»0  ;  Y4(2)-0 
1285  @ 

1290  ON  ERROR  GOTO  1295 
1295  SET  5,10 
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1300  co^inrc'onii?)  :  rnsun  siso 

1301  Xn=CO  :  X1(1)>=X1(2) 

1310  C9=-ir’P('0012”  )  :  noSUB  5150 
1315  Xl(2)=n  :  ro=lfJP(*001i4'j)  :  noSlIR  5150 
1320  X3  =  f9  :  00=  I  tJP( ‘OOlS  5 )  :  f.OSUB  5150 

1325  XU  =  C9  :  C0=  1  tJP(  *0010?;)  ;  COSIIB  5150* 

1330  X5=C9  :  CO  =  I  NP(  tOOl  7?; )  :  O.OSUn  5150 

1  335  XO(2)=ro  :  0  0  =  I  fJP(  *001 B*  )  :  COSUB  5150 

13U0  Y2  =  C9  :  C9=l(JP(r;001C*)  :  GOSUB  5150 
1345  Y3=C0  :  C9  =  I  tJP(  *0010!, )  :  GOSUB  5150 

1350  Y4  =  C9  :  C9=  I  MP(  tOOl E!; )  :  GOSUB  5150 

1355  X7=C9  :  09= I MP( ;001F!J  :  GOSUB  5150 
1300  X8=C9 

1305  U  =  RU1X0R(  IHP(!.00n4!,),?,00FF!,) 

1370  IF  U=17E  TIIEfJ  1440 
1375  C9  =  l  UP(!,00.1 3?j)  :  GOSUB  5150 
1380  X2=C0  ;  IF  X2>-1  THEM  1390 
1385  GOSUB  4000 

1390  IF  ABS(X0(2)-XG(1))<5  TIIFH  1405 

1395  COSUB  5000 

1405  T2(2)=T2(2)*1 

1410  IF  T2(2)<20  THEM  1435 

1415  X3(2)=X3(2)*X5  :  X4 ( 2 ) *X 4 ( 2 ) ♦X4  ;  X5 ( 2 ) •X5 ( 2 )*X5 

1420  Y2(2)=Y2(2)*Y2  :  Y3 ( 2 ) • Y3 ( 2 ) ♦ Y3  :  Y4 ( 2) ■Y4( 2 )*Y4 

1425  X7(2)=X7  :  X8(7)=XC 

1430  IF  FRA(T2(2)/30)*0  TIIFII  12C5 

1455  INPUT  Z 

1440  0  :  X1(9)=X1(1) 

1445  X3(8)=X5(2)/(T2(2)-19)  :  X4( 8 ) «X4( 2 ) / ( T2 ( 2 ) -19) 

1450  X5(8)=X5(2)/(T2(2)-19)  :  Y2 ( C ) • Y2 ( 2 ) /(T2( 2 ) -19 ) 

1455  Y3{S)=Y3(2)/(T2(2)-19)  :  Y4 ( 8 ) •Y4 { 2 )/ (T2 ( 2 ) -19) 

1400  D2=(X1(E)-X1(9))/T2(2) 

1465  DIM  E4(120).E9(120) 

1470  E4(0)=C7*X7(2)  :  E9( 0 )  =08 *Xr. ( 2 )  :  1=0 
1475  Q 

1480  ON  ERROR  GOTO  1485 
1485  SET  5,5 
1490  1=1*1 

1495  C9  =  lflP(!,001E!,)  :  GOSUB  5150 
1500  E4(1)=0.7*C9 

1505  C9  =  INP(!,001F!,)  :  GOSUB  5150 

1510  E9(I)=C8*09 

1515  IF  1=120  TIIEtl  1530 

1520  IF  FRA{I/30)=0  THEN  1475 

1525  INPUT  Z 

1550  0  :  SET  5,0 

1535  P8=CO*XO*XO(0)  :  P5(1)=C1«X1(6)  :  P6( 1)-C1»X1{7) 

1540  P5(2)=C1*X1(S)  :  P6{ 2 ) «C1«X1( 9) 

1545  P1=K8*Y3{S)*Y3(0)  :  P2=K7«Y2 ( 8 )♦ Y2(0 )  :  P3-IC9*Y4(« )*Y4(0) 

1550  R4=C5*(X3{9)*X3{8))/2*X3(0) 

1555  R5«C4*(X4(9)*X4(G))/2*X4(0) 

1560  R6=C5*(X5(9)*X5(8))/2*X5(0) 

1565  V3(1)=3.785*V2(1)  ;  V5{2)-3.785*V2(2)  !  n7(l)«51,7*n3(l)  :  Q7(2)-51. 7*03(2) 
1570  Q4(l)-100*Ql{l)/a7(l)  ;  Q4{ 2 ) -100*Q1( 2 )/07( 2) 

1575  Q5(1)=100*(Q2(1)-Q1(1))/Q7(1)  :  05(2)-100*(02(2)-01(2)}/Q7(2) 

1580  Q6(l)-100.0-a4(l)-a5(l)  ;  Q6( 2) =100 .0-Q4( 2 ) -Q5( 2) 

1585  P7(1)=P5(1)-P6{1)  :  P7(2)-P5(2)-P6(2) 

1590  R2(1)=P7(1)/T2(1)  :  R2(2)-P7(2)/T2(2) 

1595  R3<1)=68.027*V3(1)*R2(1)  ;  R3< 2 ) -68 .P27*V3( 2) •R2( 2) 

1600  N2(l)»INT((P6(l)-30)/P7(l))  :  N2 ( 2)-l NT( (P6( 2)-30)/P7( 2) ) 

1605  L1-C3*X3(9)*T2{1)  :  L2-C3*X3(8)*T2(2) 

1610  J1«C5*(X5(9)*T2(1)*X5(8)*T2(2))  :  J4-C4*(X4(9) •T2( 1)*X4(8 ) -TZC 2) ) 

1615  J2-Ll*(1.0-14.7/7G0.0*Cl2(l)/Q5{l))*L2*(l.O-14.7/76O.0*n2{2)/Q3(2)) 

1620  ..'3-14.7/760.0*{Ll*(n2(l)-Ql(l))/Q3(l)*L2*(Q2(2)-Ql(2))/Q3(2)) 

1625  J5-14.7/760.0*(H*Ql(l)/Q3{l)*l2*Ql{2)/a3(2)) 

1630  J6«Jl*J2*J3tJ4*J5 
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1635  A1>100*J1/J6  :  A2-100*J2/J6  ;  A3>100*J3/J6  :  AU-lOO* J4/ J6  :  AS-100*JS/J6 
1640  P9-P8/76000.0 
1645  B1-A1«P9 

1650  B2-A2*P9  :  B5-A3*P9  :  B4-A4*P9  !  B5-A5*P9 
1655  C1-B1*760.0 

1660  C2-B2*760.0  :  C3»B3*7r)0.0  :  C4-B4»760.0  :  C5-B5«760.0 
1665  Rl-1000000.0  :  Q  :  0  :  0 


16700:0:0:0:0:0;  0:0:0 

1675  0"E-BEAI1  LASER";TAn(  29)  ;''StlOT  MO.  N1;TAB(  59) ;  Z$ 

1680  @"TEST  TIME  ";T 
1685  @TAB(33);"PAf.E  1"  :  0 

1690  . . . .  .  % 

1695  @"E-BEAM  PARAfiETERS" 

1700  0"  SWITCH  PRESSURES";TAn(45);"DIOnE  AREA  -  BY  CM” 

1705  0"  TRICATRON  •  ";P1;”  PSIA  N2"; TAB( 45 ) ; "A-K  GAP  -  ";H2;''  CM” 

1710  0”  MARX  -  ";P2;”  PSIA  SF6”; TAB( 45 ) ; ”0 1 OOE  PRESSURE  -  ";P4;”  TORR” 

1715  0”  PREPULSE  «  ";P3;”  PSIA  SF6”; TAB( 45 ) ; "CHARG I  MG  VOLTAGE  -  ”;V1;”  KV” 

1720  0"  MASTER  SWITCH  GAP  -  ”;H1;”  CM” 

1725  0"  WATER  RESISTIVITY  •  ”;R1;"  OHM-CM” 

1730  0  :  GTAB(37);"SCOPE  RECORPS"  :  0 
1735  0TAB{ 15); "PULSE  CHARGE”; TAB( 30 
1740  0TAB(3O);"*";TAr){DO);"*" 

1745  @TAB(30);"*";TAB(6n);"*” 

1750  QTAB(15);"VEflTICAL";TAB(30);"«";TAB(60);"*";"  HORIZ” 

1755  @TAD( 30 );”•"; TABC 60 );”•” 

1760  0TAB(3O);"«”;TAB(6n);”*” 

1765  @TAB(16);S1;”  KV/D I  V"; TAB( 30 ) ; ”*”; TAB( 60 ) ; ”*  ”;S2;”  NS/DIV" 

1770  QTAB(3n);"*";TAB(60);”*" 

1775  QTAB(50);"*";TAB(60);"«” 

1780  0TAB(3n);"««*»«»«****««****«. ***•**•***••”  ;  0  ;  0  ;  0 

1785  QTAB(15);"TUBE  VOLTAGE"; TAB( 30 ); ”•*******••*•••*•***•**.•**•*••*” 

1790  0TAB( 30 ) ; TAB ( 60 ) ; ”*” 

1795  0TAB{3O);"»";TAB(6O);”*” 

1800  gTAB( 15 );"VERTICAL”;TAB(50);"*";TAB( 60) HORIZ” 

1805  OTAB(50);"*";TAR(6C);”*” 

1810  0TAC(3O);"*";TAB(6O);”*” 

1815  @TAB(1G);S3;"  KV/D I  V”; TAB( 30 ) ; ”*”; TAB( 60) ; ”;S4;”  NS/DIV” 

1820  @TAB(30);"«";TAB(60);"*" 

1825  @TAB(30);"*";TAB(C0);”*” 

1830  @TAn(30);"**»«***«*****«******«******«***”  :  0  ;  0  ;  0 

1835  0TAB(15);”ROGOWSKI”;TAB( 30 );”**•**•***•*****•**•••••**•***•*” 

1840  @TAB(30);"«”;TAB(60);”*” 

1845  0TAB(3O);"«";TAB(6n);”*” 

1850  0TAB(15);”VERTICAL”;TAB(3O);”*";TAB{6O);”*”;"  HORIZ” 

1855  0TAB(3O);"*”;TAB(6O);”*" 

1860  @TAB(30);"*";TAB(6n);”*” 

1865  @TAB(1G);S5;”  KV/D I  V”; TAB( 30 ) ; ”«”; TAB( 60) ; ”*  ”;S6;”  NS/DIV" 

1870  @TAB(30);”»";TAB(60);"*" 

1875  @TAB(30);"*”;TAB(60);”*” 

1880  0TAB( 30 );”*••••••*•********•*••**•**•****” 

1885  @:Q:0:@:0:@:@:@:@:@:@:@:@:@;@:0:0 
1890  @”E-BEAM  LASER”; TAB( 29 ); "SHOT  NO.  ”;N1;TAB(59);Z$ 

1895  @"TEST  TIME  ";T 
1900  @TAB(33);”PAGE  2”  ;  @ 

1905  Q”****************************#**********************************.****.*''  .  e 

1910  @”FOIL  INSTALLED  ";W$;”  SHOTS  WITH  FOIL  ”;N3  !  @ 

1915  @”GAS  HANDLING”  ;  0 

1920  0”FLUORINE  BARRICADE  I  STORAGE  VOLUME  IN  USE  -  ”;V2{1);”  GALS  (";V3(1);"  LITERS)" 
1925  0”BARRICADE  I  FILLED  -  ";Y1$;"  TO  ";Q1(1);"  TORR  OXYGEN,  ";02(1);"  TORR  OXYGEN” 
1930  0”  PLUS  FLUORINE,  AND  ”;Q3(l);"  PSIA  OXYGEN  PLUS  FLUORINE  PLUS  HELIUM" 

1935  ©"BARRICADE  I  COMPOSITION  -  ”;a4{l);"  X  02  ";05(1);”  t  F2  ";06(1);"  \  HE" 

1940  ©"BARRICADE  I  PRESSURES  -” 


1945  ©"BEGINNING  -  ";P5(1);"  PS  I  A”; TAB( 30 ) ; "END  -  ";P6(1);"  PSIA" 

1950  ©"PRESSURE  DROP  -  ”;P7(1);”  PSI”;TAB(30);"ELAPSED  TIME  -  ";T2(1) 
1955  ©"DP/DT  -  ”;R2(1);”  PSI/SEC”;TAB(30);”F2  MIX  FLOWRATE  •  ";R3(1); 
1960  ©"THERE  ARE  ”;N2{1);”  SHOTS  LIKE  THIS  LEFT  IN  BARRICADE  I"  :  © 


;"  SECS" 

"  CC/SEC" 
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196S  8“FLU0RINE  BARRICADE  II  STORAGE  VOLUME  IN  USE  •  GALS  (";V}(2);''  LITERS)" 

1970  e"BARRICAOE  II  FILLED  -  ";y2$i"  TO  ".-OKJ);"  TORR  OXYGEN,  TORR  OXYGEN" 

197S  e"  PLUS  FLUORINE,  AND  ”;Q3(2);"  PSIA  OXYGEN  PLUS  FLUORINE  PLUS  HELIUM" 

1980  e"BARRICAOE  II  COMPOSITION  -  ";(1A(2)}"  t  02  "jQ5(2);"  t  F2  ";Q6<2>;"  t  HE" 

198S  8"BARRICADC  II  PRESSURES  •” 

1990  8”BEGINNING  •  ";P5(2);"  PS  I A";TAB( 50) ;"END  •  "jP6<2);"  PSIA" 

199S  8"PRESSURE  DROP  •  ";P7(2);"  PSI";TAB(50);"CLAPSED  TIME  •  ";T2{2)i"  SECS" 

2000  8"OP/OT  -  ";R2(2);"  PS  I /SEe";TAB<  50)  ;"F2  MIX  FLOWRATE  -  ";R9(2);'’  CC/SEC" 

2005  8"THERE  ARE  ";N2(2);"  SHOTS  LIKE  THIS  LEFT  IN  BARRICADE  II"  :  8 
2010  8"FLOW  RATES";TAB(50);"PRESSURES"  ;  8 

2015  8"  F2  MIX  •  ";R»;"  CC/SEC"; TAB( 30), '"LASER  CHAMBER  -  ";P8;"  TORR" 

2020  8"  H2  •  ";R5;"  CC/SEC" 

2025  8"  AR  •  ";R6;"  CC/SEC"  :  8 

2050  8"MIXTURE  COMPOSITION"  :  8 

2055  8"  CAS", "PERCENT","  ATM","  TORR"  i  8 

20li0  8"  ARGON", A1,B1, Cl 

2095  8"  helium", A2,B2,C2 

2050  8"  FLUORINE”, A5,B3,C5 

2055  8"  HYDROGEN", A9, BA, C9 

2060  8"  OXYGEN", A5,B5,C5 

2065  e:8:e:8:e:8i8:«:ai«>«<«:<:«s8i8:8!8t8:8tlit 

2070  8"E-BEAM  LASER";TAB(29);"SHOT  NO.  ";Nl,'TAB(59);Zt 

2075  8"TEST  TIME  ";T 

2080  eTAB(55);"PAGE  5"  :  8 

2085  8" . . . . . . . . . . . .  !  8 

2090  8  :  8TAB( 55); "LASER  OUTPUT"  ;  8  :  8 

2095  8"  TIME  (SECS)  9  CM  CAL.  (JOULES)  TIME  (SECS)  *  CM  CAL.  (JOULES)" 

2100  8 

2105  FOR  1*0  TO  90 

2110  8TAB(6);(0.5*l-0.5);TAB(21);E9(l);TAR(99);(1.5*l'1.5);TAR(59);E9(5*n 

2115  NEXT  I 

2120  8:8;8:8:8:8:8:a<8:8:8:8t8:e:8'.  8 

2125  END 

9000  8"DUMP  TANK  PRESSURE  HIGH" 

9005  OUTt0079t,t00FFt 
9010  STOP 
9015  RETURN 

5000  8"MIXER  VALVE  OVERTEMPERATURE" 

5005  OUTt0079t,800FFt 
5010  STOP 
5015  RETURN 

5150  IF  C9<128  THEN  5170 
5160  C9>C9-256 
5170  RETURN 

>> 
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Table  A-1.  Nomenclature 


PO 

Dump  tank  pressure,  psia 

PI.  N2 

Trigatron  pressure,  psia 

P2,  SF6 

Marx  pressure,  psia 

P3,  SF6 

Prepulse  pressure,  psia 

HI 

Master  switch  gap,  cm 

R1  1 

Water  resistivity,  ohm-cm 

H 

Diode  height,  cm 

L 

Diode  length,  cm 

[h2 

Anode -cathode  (A-K)  gap,  cm 

P4 

Diode  pressure,  torr 

VI 

Charging  voltage,  kV 

K 

Mixer  valve  temperature,  °C 

T1 

Elapsed  time,  sec 

T2(l) 

Barricade  I  use  time,  sec 

T2(2) 

Barricade  II  use  time,  sec  ! 

R3(l),  R3(2) 

Fluorine  mix  flow  rates,  cc/sec 

N2(l).  N2(2) 

Shots  remaining,  integer 

P8 

Laser  chamber  pressure,  torr 

R4(l),  R4(2) 

Fluorine  mix  flow  rates,  cc/sec 

R5 

Hydrogen  flow  rate,  cc/sec 

R6 

Argon  flow  rate,  cc/sec 

V2(l),  V2(2) 

1  Fluorine  mix  storage  volumes,  gal 

V3(l),  V3(2) 

Fluorine  mix  storage  volumes,  1 

E9 

9 -cm  calorimeter,  j 

E4 

4-cm  calorimeter,  j 

S1-S6 

Scope  sensitivities 

N1 

Shot  numbe  r 

Ql(l),  Ql(2) 

Barricade,  O^,  torr 

Q2(l),  Q2(2) 

Barricade,  +  F2,  torr 

Q3(l).  Q3(2) 

Barricade,  +  F^  +  He,  psia 

N3 

Shots  with  foil 
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Table  A -2.  Port  Definitions 


Function 

Analog  Input/Ports 

Offset 

Counts 

Scale 

Factors 

Laser  Chamber  Pressure 

DB  10  Pin  4 

Port  11  H 

X0(0) 

X  0 

CO 

Barricade 

DB  10  Pin  5 

Port  12  H 

X1(0) 

X  1 

Cl 

Dump  Tank 

DB  10  Pin  6 

Port  13  H 

1 

X2(0)  1 

X  2 

1 

C2 

Mix  Flow 

DB  10  Pin  7 

Port  14  H 

X3(0) 

X  3 

C3 

H2  Flow 

DB  10  Pin  8 

Port  15  H 

X4(0) 

X  4 

C4 

Ar  Flow 

DB  10  Pin  9 

Port  16  H 

X5(0) 

X  5 

C5 

Analog  Temperature 

DB  10  Pin  10 
Port  17  H 

X6(0) 

X  6 

C6 

Diluent 

DB  18  Pin  4 

Port  19  H 

Y0(0) 

Y  0 

K5 

R1  Pressure 

DB  18  Pin  5 

Port  lA  H 

Y1(0) 

Y  1 

K6 

Marx  Pressure 

DB  18  Pin  6 

Port  IB  H 

Y2(0) 

Y  2 

K7 

Trigatron  Pressure 

DB  18  Pin  7 

Port  1C  H 

Y3(0) 

Y  3 

K8 

Prepulse  Pressure 

DB  18  Pin  8 

Port  ID  H 

Y4(0) 

Y  4 

K9 

4-cm  Calorimeter 

DB  18  Pin  9 

Port  IE  H 

X7(0) 

X7  (m) 

C7 

9-cm  Calorimeter 

DB  18  Pin  10 
Port  IF  H 

X8(0) 

'  X8  (m) 

1 

C8 
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